Exploring Where & Why/Exploring Where & Why.iso/pc/DIALOG.DIR/00024_close for quit.ls

Text File | 2003-10-01 | 206 b | 15 lines

on mouseDown
  puppetSound(1, "button noise")
  updateStage()
end

on mouseUp
  global gUI
  repeat while soundBusy(1)
    updateStage()
  end repeat
  tell the stage
    closeDialogWin(gUI)
  end tell
end